home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / ProDOS Basic Examples / PROGRAMS / E.S.P..bas < prev    next >
Encoding:
BASIC Source File  |  1983-10-01  |  923 b   |  21 lines
  1. 5  REM  E.S.P.
  2. 10  HOME : REM  CLEAR SCREEN
  3. 20 D$ =  CHR$(4): REM   CONTROL-D  
  4. 30 B$ =  CHR$(7): REM  CONTROL-G IS BELL  
  5. 40  REM  GET A RANDOM NUMBER
  6. 50 I =  INT(10 * RND(1))
  7. 60  PRINT "I AM THINKING OF A NUMBER FROM 0 TO 9."
  8. 70  PRINT "DO YOU KNOW WHAT IT IS?": PRINT 
  9. 80  PRINT "TYPE Q TO QUIT": PRINT "OR CHOOSE A NUMBER FROM 0 TO 9 -> ";
  10. 90  REM  GET THE NUMBER, CHECK FOR QUIT
  11. 100  GET N$: PRINT N$: PRINT : IF (N$ = "Q")  OR (N$ = "q")  THEN 200
  12. 110  REM  CHECK FOR VALID NUMBER
  13. 120  IF (N$ <"0")  OR (N$ >"9")  THEN  PRINT B$;"NUMBERS ONLY, PLEASE.": PRINT : GOTO 80
  14. 130 N =  VAL(N$): REM   CHANGE LETTER TO NUMBER
  15. 140 G = G +1: REM  ADD ONE TO TOTAL GUESSES
  16. 150  IF N = I  THEN S = S +1: PRINT "YOU GUESSED IT!!";B$: GOTO 170
  17. 160  PRINT "NICE TRY.  THE NUMBER WAS ";I;"."
  18. 170  PRINT : PRINT "YOU HAVE GUESSED ";S;" NUMBERS IN ";G;" TRIES."
  19. 180  PRINT "THAT IS ";100 *S/G;" PERCENT."
  20. 190  PRINT : GOTO 50
  21. 200  END